home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0002_Re: Marquee Text Scroller.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  4.9 KB  |  134 lines
  1. {
  2. |> I need a Text scroller for a message (greater than 255 chars??) .. I have one
  3. |> that works right now..but I use the getintvec and setintvec with $8 which is
  4. |> a programmable timer i think..but im afraid that it is slowing down my
  5. |> computer clock, and its not consistent in its speed..I also need to be doing
  6. |> other things (scrolling through options with arrow keys) while the scrolling
  7. |> is going on..
  8.  
  9. There are a number of ways to go about your problem.  But it depends
  10. on whether you'd like the scrolling to be consistent in its speed or
  11. you don't like to slow down your system by hooking Int 08h or 1Ch.
  12. For a more consistent loop, you would have to use the timer int (08h
  13. or 1Ch).  Or if you could call an "update" routine very often, then
  14. you could do away with the timer int.  If the refresh rate is
  15. relatively slow, you could still use either method - just make sure
  16. that your update routine is somewhat fast.
  17.  
  18. Anyway, I'll let you decide on which technique to use on providing the
  19. refresh calls.  If you need some more help, just drop me a line.
  20. Below is a sample code that you could probably use for the update:
  21. }
  22.  
  23. Uses Crt;
  24.  
  25. Var CurrIndex  : Word;     { current starting position of string       }
  26.     ScreenLoc  : Pointer;  { location of scroll bar in video memory    }
  27.     ScrollSize : Word;     { size of scroll bar (in columns)           }
  28.  
  29. Procedure Setup(Col, Row, ScrollSize : Word; Var ScreenLoc : Pointer);
  30. Var Seg1, Ofs1 : Word;
  31. Begin
  32.    { we're assuming an 80 column text mode }
  33.    Ofs1 := (Row-1)*160 + ((Col-1)*2);  
  34.  
  35.    { determine whether it's mono or colored }
  36.    If (Mem[$40:$49] = 7) then Seg1 := $B000
  37.      else Seg1 := $B800;
  38.  
  39.    ScreenLoc := Ptr(Seg1,Ofs1);  { I'm not sure about the syntax }
  40.                                  { better check the online help  }
  41. End;
  42.  
  43.  
  44. Procedure Update;Assembler;
  45. ASM
  46.    CLD
  47.    LES  DI, ScreenLoc    { ES:DI is where the scroll bar is in memory  }
  48.    MOV  CX, ScrollSize
  49.  
  50.    MOV  SI, CurrIndex
  51.    OR   SI, SI           { is it our first time to display the string? }
  52.    JZ   @WriteString
  53.  
  54.    DEC  CX
  55. @ShiftLeft:              { let's shift the chars one position to the   }
  56.    MOV  AL, ES:[DI+2]    { left... ( we don't care about the attr)     }
  57.    STOSB
  58.    INC  DI               { skip the attribute position                 }
  59.    LOOP @ShiftLeft       { continue up until the end of scroll bar     }
  60.  
  61.    MOV  AL, CS:[SI]      { see what's the next char to append...       }
  62.    OR   AL, AL           { are we at the end of the string ?           }
  63.    JNZ  @NotEndOfStr     { if not, just proceed.                       }
  64.    MOV  SI, Offset @Message  { otherwise, point back to the first char }
  65.    MOV  AL, CS:[SI]      { and get it                                  }
  66. @NotEndOfStr:
  67.    STOSB                 { put new char at tail of scroll bar          }
  68.  
  69.    INC  SI               { adjust index -- so that we know what's the  }
  70.    JMP  @SaveIndex       { next char to append next time...            }
  71.  
  72. @WriteString:            { routine to display message the first time   }
  73.    MOV  SI, Offset @Message
  74. @NextChar:
  75.    MOV  AL, CS:[SI]
  76.    OR   AL, AL
  77.    JZ   @WriteString     { if message is shorter than scroll, restart }
  78.    STOSB                 { put char in video memory                   }
  79.    INC  DI               { skip the attribute part                    }
  80.    INC  SI               { adjust SI to point to next char in message }
  81.    LOOP @NextChar        { fill-up all of scrollbar                   }
  82.  
  83. @SaveIndex:
  84.    MOV  CurrIndex, SI    { Save index.  We need it again later        }  
  85.    JMP  @Exit
  86.  
  87. @Message:
  88.    DB   'This is a sample message...'  { put your text message here   }
  89.    DB   0                              { terminate it with NULL       }
  90. @Exit:
  91. End;
  92.  
  93. Var Fedup : Boolean;
  94.  
  95. Begin
  96.    ScrollSize := 40;  { adjust to your liking }
  97.  
  98.    { scroll bar at first row, 20th column }
  99.    Setup(20,1,SCrollSize,ScreenLoc);
  100.  
  101.    CurrIndex := 0;   { initialize index }
  102.  
  103.    { sample code to test... I hope it works :-) }
  104.    ClrScr;
  105.    Repeat
  106.      Update;
  107.      Delay(100);     { must put some delay or something      }
  108.                      { otherwise, you won't be able to read  }
  109.                      { message... unless you're superman :-) } 
  110.      { do some other stuffs }
  111.  
  112.      Fedup := (KeyPressed) and (ReadKey = #27);
  113.    Until (Fedup);
  114. End.
  115.  
  116. Note that the example about is not fully tested.  Most of my post here
  117. are made from scratch so I don't know if it would fit your needs.
  118.  
  119. Also, sorry for the term "scroll bar".  I know it means something else
  120. but I can't think of something short but appropiate term.
  121.  
  122. Like I said, you have to judge whether to use a timer int or not.  But 
  123. if you could put the update routine in a loop that it gets to be executed in
  124. regular intervals, that would be enough.
  125.  
  126. Happy programming...
  127.  
  128. YO!
  129. ydeeps
  130. --
  131. Erwin D. Paguio
  132. http://rh.iist.unu.edu/~ep/ydeeps.html
  133. Pascal and ASM Enthusiast
  134.